home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / order form (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  676b  |  23 lines
  1. 0 remsave"order form",8
  2. 10 print"[147][155]":poke53281,0:poke53280,4:
  3. 15 s$ ="                           "
  4. 18 t$=s$:gosub60000
  5. 20 t$=" [204][207][193][196][211][212][193][210][160]order forms menu ":gosub60000
  6. 28 t$=s$:gosub60000:print
  7. 30 print"      1 = [211]ubscribe to [204][207][193][196][211][212][193][210]":print
  8. 40 print"      2 = [211]ubscribe to [208][207][215][197][210][160][208][204][193][217]/"
  9. 50 print"         [160][195][207][205][205][207][196][207][210][197][160][205][201][195][210][207][195][207][205][208][213][212][197][210][211]":print
  10. 60 print"      3 = [207]ther [204][207][193][196][211][212][193][210][160]products.":print
  11. 70 print"      4 = back to [204][207][193][196][211][212][193][210]"
  12. 100 getk$:ifk$<"1"ork$>"4"then100
  13. 200 onval(k$)goto1000,2000,3000,4000
  14. 1000 p$="order blank-ls":goto63000
  15. 2000 p$="order blank-pa":goto63000
  16. 3000 p$="order blank-pr":goto63000
  17. 4000 p$="hello":goto63000
  18. 50000 end
  19. 60000 printtab(20-len(t$)/2);t$:return
  20. 63000 rem connections
  21. 63010 print"[147]load"chr$(34)p$chr$(34)",8":print"run"
  22. 63020 poke631,13:poke632,13:poke198,2:end
  23.